      LOGICAL CROSS1, CROSS2
      COMMON /CROSSD/ CROSS1, CROSS2
